home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / UNZIP-DEMO / ZIPFILES / man00 / 00111.ls < prev    next >
Encoding:
Text File  |  1995-05-25  |  198 b   |  10 lines
  1. on whichkey
  2.   global letter
  3.   if the key = RETURN then
  4.     put EMPTY into field "secret"
  5.     set letter to 1
  6.   end if
  7.   put the key into char letter of field "secret"
  8.   set letter to letter + 1
  9. end
  10.